/*
//////////////////////////////////////////////////////////////////////////
	Pelock 1.06 Cracked version oep founder v1.0	for vb		
	Author: loveboom[DFCG]						
	Email :	bmd2chen@tom.com					
	Date  :	2004-2-24						
	Note  : ʹǰ,ڴ쳣Ĺȡ쳣	
	ѵĻѲѵĶ䡣лл!		
	 								
/////////////////////////////////////////////////////////////////////////
*/

var cbase
gmi eip,CODEBASE
mov cbase,$RESULT
log cbase
var csize
gmi eip,CODESIZE
mov csize,$RESULT
log csize


var count
mov count, 7		//쳣쳣7
eoe lbl1
run

lbl1:
cmp count, 0		//7쳣lbl2
je lbl2
sub count, 1
esto
jmp lbl1

lbl2:
eob lbl3
gpa "LoadLibraryExA","kernel32"		//õLoadLibraryExAĵַ
bp $RESULT
cmt $RESULT,"f2ȡϵ,ȡִнű"
esto

lbl3:
bc $RESULT
eob lbl4	//صûִlbl4
rtu

lbl4:
eob lbl5
findop eip,#747E#
bphws $RESULT,"x"
run

lbl5:
msg "ZFΪ0,תɹ!ȻF9.ȫᵽһ쳣һ쳣ִнű"
eoe lbl6
pause

lbl6:
bphwc $RESULT
eob lbl7
findop eip,#EB02#
bp $RESULT
esto

lbl7:
eob lbl8
eoe lbl8
bprm cbase,csize
run

lbl8:
bpmc
cmt eip,"н벹ش!"
msg "ܿCTRL+Aȡ!by loveboom[DFCG]"
ret